cobb_douglas <- function(x, y, A, alpha) {
  A * x ^ alpha * y ^ (1 - alpha)
}

# 予算制約線
bud_con <- function(x, p_x, p_y, I) {
  (I - p_x * x) / p_y
}

# 無差別曲線
indiff_crv <- function(x, U, A, alpha) {
  (U / A * x ^ (-alpha)) ^ (1 / (1 - alpha))
}